Pornodelic/Pornodelic - Disc 2.iso/pc/data/script.cst/00008_QUIT WINDOWÇÃäJï¬ÅBÅx.ls

Text File | 1998-03-05 | 551 b | 26 lines

on BeginMyQuit X,Y,W,H
  global myQuit
  if objectP(myQuit) then
    forget myQuit
  end if
  set horzOrigin = the stageleft + X
  set vertOrigin = the stageTop + Y
  set myWindowRect = rect(horzOrigin,vertOrigin,horzOrigin+W,vertOrigin+H)
  set myQuit = window "QUIT"
  set the rect of myQuit = myWindowRect
  set the fileName of myQuit = "QUIT"
  set the titleVisible of myQuit = TRUE
  set the windowType of myQuit  = 1
end

on StopMyQuit
  FinishMyQuit
end

on FinishMyQuit
  global myQuit
  if objectP(myQuit) then
    forget myQuit
  end if
end